home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / intuiextend20b.lha / distribution / exemples / HardMouseKey.asc < prev    next >
Text File  |  1980-03-11  |  2KB  |  98 lines
  1. '**************************************
  2. '                                     *
  3. '     IntuiExtend.Lib 2.0/@1995-98    *
  4. '                                     *
  5. '          by CIERP Philippe.         *
  6. '                                     *
  7. '          from AMIGAzette 83         *
  8. '                                     *
  9. '**************************************
  10. '
  11. ' Commande 
  12. ' Hard Mouse Key 
  13. '
  14. ' Dessin des sourie
  15. Box 10,10 To 48,70
  16. Box 10,10 To 20,30
  17. Box 24,10 To 34,30
  18. Box 38,10 To 48,30
  19. '
  20. Box 70,10 To 108,70
  21. Box 70,10 To 80,30
  22. Box 84,10 To 94,30
  23. Box 98,10 To 108,30
  24. '
  25. ' Initialisation des flags 
  26. LM0=0 : MM0=0 : RM0=0
  27. LM1=0 : MM1=0 : RM1=0
  28. Do 
  29.    '
  30.    Text 0,8,Str$(Hard Mouse Key)+" "
  31.    ' Port 0 Bouton de gauche    
  32.    If(Hard Mouse Key and 1)=1 and LM0=0
  33.       Ink 2
  34.       Bar 11,11 To 19,29
  35.       LM0=1
  36.    Else If(Hard Mouse Key and 1)=0 and LM0=1
  37.       Ink 1
  38.       Bar 11,11 To 19,29
  39.       LM0=0
  40.    End If 
  41.    '
  42.    ' Port 0 Bouton de droite  
  43.    If(Hard Mouse Key and 2)=2 and RM0=0
  44.       Ink 2
  45.       Bar 39,11 To 47,29
  46.       RM0=1
  47.    Else If(Hard Mouse Key and 2)=0 and RM0=1
  48.       Ink 1
  49.       Bar 39,11 To 47,29
  50.       RM0=0
  51.    End If 
  52.    '
  53.    ' Port 0 Bouton du milieu  
  54.    If(Hard Mouse Key and 4)=4 and MM0=0
  55.       Ink 2
  56.       Bar 25,11 To 33,29
  57.       MM0=1
  58.    Else If(Hard Mouse Key and 4)=0 and MM0=1
  59.       Ink 1
  60.       Bar 25,11 To 33,29
  61.       MM0=0
  62.    End If 
  63.    '
  64.    ' Port 1 Bouton de gauche  
  65.    If(Hard Mouse Key and 8)=8 and LM1=0
  66.       Ink 2
  67.       Bar 71,11 To 79,29
  68.       LM1=1
  69.    Else If(Hard Mouse Key and 8)=0 and LM1=1
  70.       Ink 1
  71.       Bar 71,11 To 79,29
  72.       LM1=0
  73.    End If 
  74.    '
  75.    ' Port 1 Bouton de droite
  76.    If(Hard Mouse Key and 16)=16 and RM1=0
  77.       Ink 2
  78.       Bar 99,11 To 107,29
  79.       RM1=1
  80.    Else If(Hard Mouse Key and 16)=0 and RM1=1
  81.       Ink 1
  82.       Bar 99,11 To 107,29
  83.       RM1=0
  84.    End If 
  85.    '
  86.    ' Port 1 Bouton du milieu  
  87.    If(Hard Mouse Key and 32)=32 and MM1=0
  88.       Ink 2
  89.       Bar 85,11 To 93,29
  90.       MM1=1
  91.    Else If(Hard Mouse Key and 32)=0 and MM1=1
  92.       Ink 1
  93.       Bar 85,11 To 93,29
  94.       MM1=0
  95.    End If 
  96.    '
  97. Loop 
  98.